Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/compstate.sc

Text File | 1993-07-16 | 34KB | 1 lines

(dependencies (standard0 list-fns scan-args stream abs-syntx props) names (compstate) length 6828 nslots 51 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 420)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 46)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 350)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 44)) (5 (%%-me-local--%% . make-stack-val)) (3 0) (39) (8 0) (5 (%%-me-local--%% . stack-depth)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-ref)) (3 0) (39) (28 1) (5 (%%-me-local--%% . scanq-stack)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-swap)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-push)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-slide)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-pop)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack-top)) (3 0) (39) (28 1) (5 (%%-me-local--%% . stack)) (3 0) (39) (28 1) (5 (%%-me-local--%% . make-stack)) (3 0) (39) (28 1) (5 (%%-me-local--%% . copy-stack)) (3 0) (39) (28 1) (5 (%%-me-local--%% . env-object-prev)) (3 0) (39) (28 1) (5 (%%-me-local--%% . env-object-content)) (3 0) (39) (28 1) (5 (%%-me-local--%% . env-object-size)) (3 0) (39) (28 1) (5 (%%-me-local--%% . make-env-object)) (3 0) (39) (28 1) (5 (%%-me-local--%% . static-val-id)) (3 0) (39) (28 1) (5 (%%-me-local--%% . statics-2-list)) (3 0) (39) (28 1) (5 (%%-me-local--%% . add-static)) (3 0) (39) (28 1) (5 (%%-me-local--%% . append-statics)) (3 0) (39) (28 1) (5 (%%-me-local--%% . make-static-store)) (3 0) (39) (28 1) (5 (%%-me-local--%% . make-code-list)) (3 0) (39) (28 1) (5 (%%-me-local--%% . add-code-vectors)) (3 0) (39) (28 1) (5 (%%-me-local--%% . reify-code-stream)) (3 0) (39) (28 1) (5 (%%-me-local--%% . state-code)) (3 0) (39) (28 1) (5 (%%-me-local--%% . state-statics)) (3 0) (39) (28 1) (5 (%%-me-local--%% . state-stream)) (3 0) (39) (28 1) (5 (%%-me-local--%% . state-stack)) (3 0) (39) (28 1) (5 (%%-me-local--%% . make-compiler-state)) (3 0) (39) (28 1) (5 (%%-me-local--%% . modify-compiler-state)) (3 0) (39) (28 1) (5 (%%-me-local--%% . update-comp-state)) (3 0) (39) (28 1) (5 (%%-me-local--%% . add-instruction)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 45)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% errors . <condition-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 1)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% errors . <condition>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . Compiler-State-Error)) (36 (%%-big-arg-%% 182)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% init . <structure-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 4)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% init . <structure>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 5)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (36 (%%-big-arg-%% 6158)) (8 10) (40 0) (3 0) (39) (29) (18) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . stack)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . stack)) (4 (%%-static-%% . 5)) (11) (34 2) (7 (%%-me-local--%% . stack-state)) (36 (%%-big-arg-%% 6056)) (11) (4 (%%-static-%% . 11)) (5 (%%-big-arg-%% 0)) (39) (51 0) (7 (%%-me-local--%% . make-stack)) (36 (%%-big-arg-%% 5993)) (11) (4 (%%-static-%% . 11)) (6 1) (39) (51 1) (7 (%%-me-local--%% . m-s-internal)) (36 (%%-big-arg-%% 5938)) (11) (4 (%%-static-%% . 11)) (6 2) (39) (51 1) (7 (%%-me-local--%% . copy-stack)) (36 (%%-big-arg-%% 146)) (1 (%%-link-me-%% init . add-method)) (1 (%%-link-me-%% streams . generic-prin)) (36 (%%-big-arg-%% 120)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . generic-method-class)) (1 (%%-link-me-%% streams . generic-prin)) (10) (34 1) (4 (%%-static-%% . 12)) (3 0) (39) (9) (4 (%%-me-local--%% . stack)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 14)) (3 0) (39) (29) (4 (%%-static-%% . 15)) (3 0) (39) (29) (36 (%%-big-arg-%% 5749)) (8 12) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 160)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% init . <structure-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 17)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% init . <structure>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 18)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . stack-val)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . stack-val)) (4 (%%-static-%% . 18)) (11) (34 2) (7 (%%-me-local--%% . stack-val-names)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . stack-val-names)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . stack-val)) (4 (%%-static-%% . 18)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 5408)) (11) (4 (%%-static-%% . 11)) (6 3) (39) (51 -1) (7 (%%-me-local--%% . make-stack-val)) (36 (%%-big-arg-%% 146)) (1 (%%-link-me-%% init . add-method)) (1 (%%-link-me-%% streams . generic-prin)) (36 (%%-big-arg-%% 120)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . generic-method-class)) (1 (%%-link-me-%% streams . generic-prin)) (10) (34 1) (4 (%%-static-%% . 12)) (3 0) (39) (9) (4 (%%-me-local--%% . stack-val)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 14)) (3 0) (39) (29) (4 (%%-static-%% . 15)) (3 0) (39) (29) (36 (%%-big-arg-%% 5234)) (8 12) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 5143)) (11) (4 (%%-static-%% . 11)) (6 4) (39) (51 1) (7 (%%-me-local--%% . stack-top)) (36 (%%-big-arg-%% 5017)) (11) (4 (%%-static-%% . 11)) (6 5) (39) (51 2) (7 (%%-me-local--%% . stack-pop)) (36 (%%-big-arg-%% 4830)) (11) (4 (%%-static-%% . 11)) (6 6) (39) (51 3) (7 (%%-me-local--%% . stack-slide)) (36 (%%-big-arg-%% 4727)) (11) (4 (%%-static-%% . 11)) (6 7) (39) (51 2) (7 (%%-me-local--%% . copy-n)) (36 (%%-big-arg-%% 4669)) (11) (4 (%%-static-%% . 11)) (6 8) (39) (51 2) (7 (%%-me-local--%% . stack-push)) (36 (%%-big-arg-%% 4576)) (11) (4 (%%-static-%% . 11)) (6 9) (39) (51 1) (7 (%%-me-local--%% . stack-swap)) (36 (%%-big-arg-%% 4504)) (11) (4 (%%-static-%% . 11)) (6 10) (39) (51 2) (7 (%%-me-local--%% . scanq-stack)) (36 (%%-big-arg-%% 4359)) (11) (4 (%%-static-%% . 11)) (6 11) (39) (51 4) (7 (%%-me-local--%% . scan-aux)) (36 (%%-big-arg-%% 4289)) (11) (4 (%%-static-%% . 11)) (6 12) (39) (51 2) (7 (%%-me-local--%% . stack-ref)) (36 (%%-big-arg-%% 48)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . stack-ref)) (36 (%%-big-arg-%% 4178)) (8 6) (40 3) (11) (33 2) (18) (36 (%%-big-arg-%% 4078)) (11) (4 (%%-static-%% . 11)) (6 13) (39) (51 2) (7 (%%-me-local--%% . st-ref-aux)) (36 (%%-big-arg-%% 4027)) (11) (4 (%%-static-%% . 11)) (6 14) (39) (51 1) (7 (%%-me-local--%% . stack-depth)) (36 (%%-big-arg-%% 342)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% init . <structure-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 27)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% init . <structure>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 28)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 28)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (9) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 29)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 29)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 30)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 30)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . env-object)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 30)) (11) (34 2) (7 (%%-me-local--%% . env-object-prev)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . env-object-prev)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 30)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 29)) (11) (34 2) (7 (%%-me-local--%% . env-object-content)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . env-object-content)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 29)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 28)) (11) (34 2) (7 (%%-me-local--%% . env-object-size)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . env-object-size)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 28)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 3293)) (11) (4 (%%-static-%% . 11)) (6 15) (39) (51 3) (7 (%%-me-local--%% . make-env-object)) (36 (%%-big-arg-%% 342)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% init . <structure-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 31)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% init . <structure>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 32)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 32)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (9) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 33)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 33)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 29)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 29)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . static)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 29)) (11) (34 2) (7 (%%-me-local--%% . static-content)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . static-content)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 29)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 33)) (11) (34 2) (7 (%%-me-local--%% . static-id-type)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . static-id-type)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 33)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 32)) (11) (34 2) (7 (%%-me-local--%% . static-id)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . static-id)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 32)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 2559)) (11) (4 (%%-static-%% . 11)) (6 16) (39) (51 3) (7 (%%-me-local--%% . make-static)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% list-fns . mk-counter)) (4 (%%-static-%% . 23)) (10) (34 1) (7 (%%-me-local--%% . mk-new-static-id)) (36 (%%-big-arg-%% 2475)) (11) (4 (%%-static-%% . 11)) (6 17) (39) (51 0) (7 (%%-me-local--%% . make-static-store)) (36 (%%-big-arg-%% 2425)) (11) (4 (%%-static-%% . 11)) (6 18) (39) (51 2) (7 (%%-me-local--%% . append-statics)) (36 (%%-big-arg-%% 2315)) (11) (4 (%%-static-%% . 11)) (6 19) (39) (51 2) (7 (%%-me-local--%% . add-static)) (36 (%%-big-arg-%% 2275)) (11) (4 (%%-static-%% . 11)) (6 20) (39) (51 2) (7 (%%-me-local--%% . insert-static)) (36 (%%-big-arg-%% 2204)) (11) (4 (%%-static-%% . 11)) (6 21) (39) (51 1) (7 (%%-me-local--%% . statics-2-list)) (36 (%%-big-arg-%% 2180)) (11) (4 (%%-static-%% . 11)) (6 22) (39) (51 1) (7 (%%-me-local--%% . static-val-id)) (36 (%%-big-arg-%% 2125)) (11) (4 (%%-static-%% . 11)) (6 23) (39) (51 2) (7 (%%-me-local--%% . add-code-vectors)) (36 (%%-big-arg-%% 2100)) (11) (4 (%%-static-%% . 11)) (6 24) (39) (51 0) (7 (%%-me-local--%% . make-code-list)) (36 (%%-big-arg-%% 2037)) (11) (4 (%%-static-%% . 11)) (6 25) (39) (51 1) (7 (%%-me-local--%% . reify-code-stream)) (36 (%%-big-arg-%% 1993)) (11) (4 (%%-static-%% . 11)) (6 26) (39) (51 1) (7 (%%-me-local--%% . instructions2link-table)) (36 (%%-big-arg-%% 1967)) (11) (4 (%%-static-%% . 11)) (6 27) (39) (51 2) (7 (%%-me-local--%% . instruct-2-links-aux)) (36 (%%-big-arg-%% 439)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% init . <structure-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 34)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% init . <structure>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 4)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 35)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (36 (%%-big-arg-%% 1797)) (8 10) (40 0) (3 0) (39) (29) (18) (3 0) (39) (9) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 37)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 38)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (36 (%%-big-arg-%% 1705)) (8 12) (40 0) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 39)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 40)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (36 (%%-big-arg-%% 1613)) (8 12) (40 0) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 41)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (1 (%%-link-me-%% init . <local-slot-description>)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 42)) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (36 (%%-big-arg-%% 1521)) (8 12) (40 0) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 10)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . compiler-state)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 41)) (11) (34 2) (7 (%%-me-local--%% . state-code)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . state-code)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 41)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 39)) (11) (34 2) (7 (%%-me-local--%% . state-statics)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . state-statics)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 39)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 37)) (11) (34 2) (7 (%%-me-local--%% . state-stream)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . state-stream)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 37)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-reader)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 4)) (11) (34 2) (7 (%%-me-local--%% . state-stack)) (36 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% init . setter)) (10) (33 1) (4 (%%-me-local--%% . state-stack)) (36 (%%-big-arg-%% 27)) (1 (%%-link-me-%% telos1 . find-slot-writer)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 4)) (11) (34 2) (11) (33 2) (18) (36 (%%-big-arg-%% 994)) (11) (4 (%%-static-%% . 11)) (6 28) (39) (51 4) (7 (%%-me-local--%% . make-compiler-state)) (36 (%%-big-arg-%% 903)) (11) (4 (%%-static-%% . 11)) (6 29) (39) (51 -2) (7 (%%-me-local--%% . modify-compiler-state)) (36 (%%-big-arg-%% 146)) (1 (%%-link-me-%% init . add-method)) (1 (%%-link-me-%% streams . generic-prin)) (36 (%%-big-arg-%% 120)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . generic-method-class)) (1 (%%-link-me-%% streams . generic-prin)) (10) (34 1) (4 (%%-static-%% . 12)) (3 0) (39) (9) (4 (%%-me-local--%% . compiler-state)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 14)) (3 0) (39) (29) (4 (%%-static-%% . 15)) (3 0) (39) (29) (36 (%%-big-arg-%% 714)) (8 12) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 146)) (1 (%%-link-me-%% init . add-method)) (1 (%%-link-me-%% standard0 . initialize-instance)) (36 (%%-big-arg-%% 120)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . generic-method-class)) (1 (%%-link-me-%% standard0 . initialize-instance)) (10) (34 1) (4 (%%-static-%% . 12)) (3 0) (39) (9) (4 (%%-me-local--%% . compiler-state)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 14)) (3 0) (39) (29) (4 (%%-static-%% . 15)) (3 0) (39) (29) (36 (%%-big-arg-%% 187)) (8 12) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 145)) (11) (4 (%%-static-%% . 11)) (6 30) (39) (51 2) (7 (%%-me-local--%% . add-instruction)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 11)) (6 31) (39) (51 3) (7 (%%-me-local--%% . update-comp-state)) (18) (3 1) (37) (4 (%%-me-local--%% . modify-compiler-state)) (8 4) (4 (%%-static-%% . 35)) (3 0) (39) (9) (36 (%%-big-arg-%% 25)) (8 8) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stack)) (8 8) (10) (33 1) (10) (33 1) (3 0) (39) (29) (4 (%%-static-%% . 38)) (3 0) (39) (29) (36 (%%-big-arg-%% 25)) (8 7) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stream)) (8 8) (10) (33 1) (10) (33 1) (3 0) (39) (29) (18) (11) (14 8 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% 448)) (1 (%%-link-me-%% stream . write-stream)) (11) (8 4) (11) (14 7 3) (9) (13 4) (33 2) (36 (%%-big-arg-%% 15)) (8 5) (27) (8 5) (8 5) (11) (35 2) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% boot . not)) (8 5) (26) (4 (%%-static-%% . 5)) (43) (10) (34 1) (32 (%%-big-arg-%% 8)) (15 4) (37) (11) (27) (26) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stream)) (8 4) (10) (33 1) (4 (%%-static-%% . 36)) (43) (32 (%%-big-arg-%% 57)) (36 (%%-big-arg-%% 47)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . state-stream)) (10) (33 1) (8 4) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stream)) (8 7) (10) (33 1) (11) (33 2) (31 (%%-big-arg-%% 7)) (3 0) (18) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-statics)) (8 4) (10) (33 1) (4 (%%-static-%% . 36)) (43) (32 (%%-big-arg-%% 57)) (36 (%%-big-arg-%% 47)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . state-statics)) (10) (33 1) (8 4) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-statics)) (8 7) (10) (33 1) (11) (33 2) (31 (%%-big-arg-%% 7)) (3 0) (18) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stack)) (8 4) (10) (33 1) (4 (%%-static-%% . 36)) (43) (32 (%%-big-arg-%% 57)) (36 (%%-big-arg-%% 47)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . state-stack)) (10) (33 1) (8 4) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stack)) (8 7) (10) (33 1) (11) (33 2) (31 (%%-big-arg-%% 7)) (3 0) (18) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-code)) (8 4) (10) (33 1) (4 (%%-static-%% . 36)) (43) (32 (%%-big-arg-%% 57)) (36 (%%-big-arg-%% 47)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . setter)) (4 (%%-me-local--%% . state-code)) (10) (33 1) (8 4) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-code)) (8 7) (10) (33 1) (11) (33 2) (31 (%%-big-arg-%% 7)) (3 0) (17 2) (15 4) (37) (1 (%%-link-me-%% extras0 . format)) (11) (4 (%%-static-%% . 43)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stack)) (8 8) (10) (33 1) (3 0) (39) (12) (14 8 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . compiler-state)) (36 (%%-big-arg-%% 35)) (1 (%%-link-me-%% boot . nconc)) (4 (%%-static-%% . 5)) (3 0) (39) (9) (8 10) (3 0) (39) (29) (18) (8 8) (11) (34 2) (3 0) (39) (12) (14 8 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . compiler-state)) (4 (%%-static-%% . 38)) (3 0) (39) (9) (8 8) (3 0) (39) (29) (4 (%%-static-%% . 35)) (3 0) (39) (29) (8 7) (3 0) (39) (29) (4 (%%-static-%% . 40)) (3 0) (39) (29) (8 6) (3 0) (39) (29) (4 (%%-static-%% . 42)) (3 0) (39) (29) (8 5) (3 0) (39) (29) (18) (11) (14 9 3) (9) (13 4) (34 -2) (18) (4 (%%-static-%% . 36)) (37) (18) (4 (%%-static-%% . 36)) (37) (18) (4 (%%-static-%% . 36)) (37) (18) (4 (%%-static-%% . 36)) (37) (17 3) (3 0) (37) (4 (%%-me-local--%% . instruct-2-links-aux)) (11) (3 0) (11) (14 6 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -23)) (1 (%%-link-me-%% extras0 . convert)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-stream)) (8 5) (10) (33 1) (1 (%%-link-me-%% standard0 . pair)) (11) (14 6 3) (9) (13 4) (34 2) (18) (3 0) (37) (1 (%%-link-me-%% boot . append)) (12) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . state-code)) (8 6) (10) (33 1) (11) (14 7 3) (9) (13 4) (34 2) (18) (27) (37) (1 (%%-link-me-%% gens . reverse)) (36 (%%-big-arg-%% 32)) (1 (%%-link-me-%% init . mapcar)) (1 (%%-link-me-%% boot . car)) (8 6) (27) (26) (3 0) (12) (34 -3) (14 4 2) (16) (9) (13 3) (33 1) (10) (26) (3 0) (39) (9) (8 4) (8 4) (39) (3 0) (39) (29) (18) (15 4) (37) (11) (11) (27) (26) (48) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% boot . not)) (12) (42) (10) (34 1) (32 (%%-big-arg-%% 20)) (9) (3 0) (39) (9) (8 4) (3 0) (39) (29) (18) (15 5) (37) (12) (36 (%%-big-arg-%% 11)) (8 5) (26) (9) (33 0) (39) (9) (3 0) (39) (9) (8 5) (26) (3 0) (39) (9) (8 4) (8 8) (27) (26) (39) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (15 6) (37) (1 (%%-link-me-%% list-fns . fold)) (4 (%%-me-local--%% . insert-static)) (8 4) (27) (26) (8 4) (12) (14 8 4) (9) (13 5) (34 3) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% list-fns . mk-counter)) (4 (%%-static-%% . 23)) (10) (34 1) (3 0) (39) (9) (3 0) (3 0) (39) (29) (18) (15 2) (37) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . static)) (4 (%%-static-%% . 32)) (3 0) (39) (9) (8 7) (3 0) (39) (29) (4 (%%-static-%% . 33)) (3 0) (39) (29) (8 6) (3 0) (39) (29) (4 (%%-static-%% . 29)) (3 0) (39) (29) (8 5) (3 0) (39) (29) (18) (11) (14 8 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . env-object)) (4 (%%-static-%% . 28)) (3 0) (39) (9) (8 7) (3 0) (39) (29) (4 (%%-static-%% . 29)) (3 0) (39) (29) (8 6) (3 0) (39) (29) (4 (%%-static-%% . 30)) (3 0) (39) (29) (8 5) (3 0) (39) (29) (18) (11) (14 8 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% lists . list-length)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 5) (10) (33 1) (14 4 2) (62 1) (37) (11) (42) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% init . =)) (8 4) (4 (%%-static-%% . 23)) (11) (33 2) (32 (%%-big-arg-%% 8)) (17 2) (37) (4 (%%-me-local--%% . st-ref-aux)) (12) (27) (1 (%%-link-me-%% arith . -)) (8 4) (4 (%%-static-%% . 24)) (3 0) (39) (62 -2) (11) (14 7 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -82)) (36 (%%-big-arg-%% 34)) (4 (%%-me-local--%% . st-ref-aux)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 9) (10) (33 1) (8 6) (3 0) (31 (%%-big-arg-%% -116)) (9) (42) (32 (%%-big-arg-%% 10)) (17 5) (3 0) (37) (9) (12) (14 7 2) (28 0) (37) (36 (%%-big-arg-%% 34)) (4 (%%-me-local--%% . st-ref-aux)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 8) (10) (33 1) (8 5) (3 0) (31 (%%-big-arg-%% -170)) (9) (32 (%%-big-arg-%% 9)) (15 4) (26) (37) (17 4) (3 0) (37) (8 4) (42) (32 (%%-big-arg-%% 49)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 25)) (4 (%%-me-local--%% . Compiler-State-Error)) (4 (%%-static-%% . 26)) (3 0) (39) (9) (8 8) (3 0) (39) (29) (18) (12) (14 10 4) (9) (13 5) (34 -3) (36 (%%-big-arg-%% 14)) (12) (8 7) (26) (8 7) (11) (33 2) (32 (%%-big-arg-%% 10)) (17 2) (15 3) (37) (4 (%%-me-local--%% . scan-aux)) (8 5) (27) (8 5) (1 (%%-link-me-%% arith . +)) (8 6) (4 (%%-static-%% . 24)) (3 0) (62 -3) (8 5) (8 4) (14 11 5) (9) (13 6) (18) (3 0) (31 (%%-big-arg-%% -119)) (4 (%%-me-local--%% . scan-aux)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 6) (10) (33 1) (12) (4 (%%-static-%% . 23)) (1 (%%-link-me-%% boot . eq)) (8 4) (14 9 5) (9) (13 6) (18) (3 0) (31 (%%-big-arg-%% -170)) (4 (%%-me-local--%% . m-s-internal)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 5) (10) (33 1) (27) (26) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 6) (10) (33 1) (26) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 7) (10) (33 1) (27) (27) (39) (39) (14 4 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 624)) (4 (%%-me-local--%% . m-s-internal)) (11) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 7) (10) (33 1) (39) (14 5 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 587)) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% init . =)) (8 5) (4 (%%-static-%% . 23)) (11) (33 2) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (10) (26) (36 (%%-big-arg-%% 41)) (4 (%%-me-local--%% . copy-n)) (1 (%%-link-me-%% arith . -)) (8 7) (4 (%%-static-%% . 24)) (3 0) (39) (62 -2) (8 6) (27) (3 0) (31 (%%-big-arg-%% -72)) (14 5 2) (39) (37) (1 (%%-link-me-%% arith . <)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . stack-depth)) (8 7) (3 0) (31 (%%-big-arg-%% -609)) (8 4) (3 0) (39) (62 -2) (32 (%%-big-arg-%% 26)) (17 4) (4 (%%-me-local--%% . m-s-internal)) (3 0) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 444)) (4 (%%-me-local--%% . m-s-internal)) (36 (%%-big-arg-%% 85)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 34)) (4 (%%-me-local--%% . copy-n)) (8 8) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 14) (10) (33 1) (3 0) (31 (%%-big-arg-%% -191)) (36 (%%-big-arg-%% 34)) (1 (%%-link-me-%% list-fns . nthcdr)) (8 10) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 15) (10) (33 1) (11) (34 2) (11) (34 2) (14 6 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 339)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 5) (10) (33 1) (42) (32 (%%-big-arg-%% 35)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 22)) (4 (%%-me-local--%% . Compiler-State-Error)) (3 0) (12) (14 8 4) (9) (13 5) (34 -3) (4 (%%-me-local--%% . m-s-internal)) (36 (%%-big-arg-%% 34)) (1 (%%-link-me-%% list-fns . nthcdr)) (8 5) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 10) (10) (33 1) (11) (34 2) (14 5 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% 234)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 4) (10) (33 1) (42) (32 (%%-big-arg-%% 35)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 21)) (4 (%%-me-local--%% . Compiler-State-Error)) (3 0) (12) (14 7 4) (9) (13 5) (34 -3) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 4) (10) (33 1) (15 3) (26) (37) (1 (%%-link-me-%% streams1 . prin)) (4 (%%-static-%% . 20)) (12) (3 0) (39) (11) (14 7 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . stack-val)) (36 (%%-big-arg-%% 21)) (1 (%%-link-me-%% boot . nconc)) (3 0) (8 8) (11) (34 2) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% extras0 . format)) (11) (4 (%%-static-%% . 16)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . stack-state)) (8 8) (10) (33 1) (3 0) (39) (12) (14 8 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% init . make)) (11) (4 (%%-static-%% . 4)) (3 0) (39) (9) (11) (3 0) (39) (29) (18) (11) (14 6 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . stack)) (4 (%%-static-%% . 8)) (3 0) (39) (9) (8 5) (3 0) (39) (29) (18) (11) (14 6 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% init . make)) (4 (%%-me-local--%% . stack)) (3 0) (11) (14 5 3) (9) (13 4) (34 -2) (18) (3 0) (37)) statics (name Compiler-State-Error direct-superclasses direct-slot-descriptions stack state slot-class initarg initstate initfunction metaclass-hypotheses compstate signature argtype 2 function "#S<~a>" stack-val names %_*unbound*_% "#<?>" "Empty stack in Stack-top" "Empty stack in Stack-pop" 0 1 "Value not on stack" error-value env-object size content prev static id type compiler-state state-stack no-value output-stream state-stream statics state-statics code state-code "#<state: ~a>" (make-stack-val stack-depth stack-ref scanq-stack stack-swap stack-push stack-slide stack-pop stack-top stack make-stack copy-stack env-object-prev env-object-content env-object-size make-env-object static-val-id statics-2-list add-static append-statics make-static-store make-code-list add-code-vectors reify-code-stream state-code state-statics state-stream state-stack make-compiler-state modify-compiler-state update-comp-state add-instruction) ((strip (union (import standard0) (import list-fns) (import scan-args) (import stream) (import abs-syntx) (import props))) make-stack-val stack-depth stack-ref scanq-stack stack-swap stack-push stack-slide stack-pop stack-top stack make-stack copy-stack env-object-prev env-object-content env-object-size make-env-object static-val-id statics-2-list add-static append-statics make-static-store make-code-list add-code-vectors reify-code-stream state-code state-statics state-stream state-stack make-compiler-state modify-compiler-state update-comp-state add-instruction) compstate))